submodule_exp_real128.f90 Source File


Source Code

submodule (taylor_series_fortran) imp_taylor_series_exp_real128

    implicit none


    real(real128), parameter :: coefficient000 = 1.0_real128
    real(real128), parameter :: coefficient001 = 1.0_real128
    real(real128), parameter :: coefficient002 = coefficient001 /   2
    real(real128), parameter :: coefficient003 = coefficient002 /   3
    real(real128), parameter :: coefficient004 = coefficient003 /   4
    real(real128), parameter :: coefficient005 = coefficient004 /   5
    real(real128), parameter :: coefficient006 = coefficient005 /   6
    real(real128), parameter :: coefficient007 = coefficient006 /   7
    real(real128), parameter :: coefficient008 = coefficient007 /   8
    real(real128), parameter :: coefficient009 = coefficient008 /   9
    real(real128), parameter :: coefficient010 = coefficient009 /  10
    real(real128), parameter :: coefficient011 = coefficient010 /  11
    real(real128), parameter :: coefficient012 = coefficient011 /  12
    real(real128), parameter :: coefficient013 = coefficient012 /  13
    real(real128), parameter :: coefficient014 = coefficient013 /  14
    real(real128), parameter :: coefficient015 = coefficient014 /  15
    real(real128), parameter :: coefficient016 = coefficient015 /  16
    real(real128), parameter :: coefficient017 = coefficient016 /  17
    real(real128), parameter :: coefficient018 = coefficient017 /  18
    real(real128), parameter :: coefficient019 = coefficient018 /  19
    real(real128), parameter :: coefficient020 = coefficient019 /  20
    real(real128), parameter :: coefficient021 = coefficient020 /  21
    real(real128), parameter :: coefficient022 = coefficient021 /  22
    real(real128), parameter :: coefficient023 = coefficient022 /  23
    real(real128), parameter :: coefficient024 = coefficient023 /  24
    real(real128), parameter :: coefficient025 = coefficient024 /  25
    real(real128), parameter :: coefficient026 = coefficient025 /  26
    real(real128), parameter :: coefficient027 = coefficient026 /  27
    real(real128), parameter :: coefficient028 = coefficient027 /  28
    real(real128), parameter :: coefficient029 = coefficient028 /  29
    real(real128), parameter :: coefficient030 = coefficient029 /  30
    real(real128), parameter :: coefficient031 = coefficient030 /  31
    real(real128), parameter :: coefficient032 = coefficient031 /  32
    real(real128), parameter :: coefficient033 = coefficient032 /  33
    real(real128), parameter :: coefficient034 = coefficient033 /  34
    real(real128), parameter :: coefficient035 = coefficient034 /  35
    real(real128), parameter :: coefficient036 = coefficient035 /  36
    real(real128), parameter :: coefficient037 = coefficient036 /  37
    real(real128), parameter :: coefficient038 = coefficient037 /  38
    real(real128), parameter :: coefficient039 = coefficient038 /  39
    real(real128), parameter :: coefficient040 = coefficient039 /  40
    real(real128), parameter :: coefficient041 = coefficient040 /  41
    real(real128), parameter :: coefficient042 = coefficient041 /  42
    real(real128), parameter :: coefficient043 = coefficient042 /  43
    real(real128), parameter :: coefficient044 = coefficient043 /  44
    real(real128), parameter :: coefficient045 = coefficient044 /  45
    real(real128), parameter :: coefficient046 = coefficient045 /  46
    real(real128), parameter :: coefficient047 = coefficient046 /  47
    real(real128), parameter :: coefficient048 = coefficient047 /  48
    real(real128), parameter :: coefficient049 = coefficient048 /  49
    real(real128), parameter :: coefficient050 = coefficient049 /  50
    real(real128), parameter :: coefficient051 = coefficient050 /  51
    real(real128), parameter :: coefficient052 = coefficient051 /  52
    real(real128), parameter :: coefficient053 = coefficient052 /  53
    real(real128), parameter :: coefficient054 = coefficient053 /  54
    real(real128), parameter :: coefficient055 = coefficient054 /  55
    real(real128), parameter :: coefficient056 = coefficient055 /  56
    real(real128), parameter :: coefficient057 = coefficient056 /  57
    real(real128), parameter :: coefficient058 = coefficient057 /  58
    real(real128), parameter :: coefficient059 = coefficient058 /  59
    real(real128), parameter :: coefficient060 = coefficient059 /  60
    real(real128), parameter :: coefficient061 = coefficient060 /  61
    real(real128), parameter :: coefficient062 = coefficient061 /  62
    real(real128), parameter :: coefficient063 = coefficient062 /  63
    real(real128), parameter :: coefficient064 = coefficient063 /  64
    real(real128), parameter :: coefficient065 = coefficient064 /  65
    real(real128), parameter :: coefficient066 = coefficient065 /  66
    real(real128), parameter :: coefficient067 = coefficient066 /  67
    real(real128), parameter :: coefficient068 = coefficient067 /  68
    real(real128), parameter :: coefficient069 = coefficient068 /  69
    real(real128), parameter :: coefficient070 = coefficient069 /  70
    real(real128), parameter :: coefficient071 = coefficient070 /  71
    real(real128), parameter :: coefficient072 = coefficient071 /  72
    real(real128), parameter :: coefficient073 = coefficient072 /  73
    real(real128), parameter :: coefficient074 = coefficient073 /  74
    real(real128), parameter :: coefficient075 = coefficient074 /  75
    real(real128), parameter :: coefficient076 = coefficient075 /  76
    real(real128), parameter :: coefficient077 = coefficient076 /  77
    real(real128), parameter :: coefficient078 = coefficient077 /  78
    real(real128), parameter :: coefficient079 = coefficient078 /  79
    real(real128), parameter :: coefficient080 = coefficient079 /  80
    real(real128), parameter :: coefficient081 = coefficient080 /  81
    real(real128), parameter :: coefficient082 = coefficient081 /  82
    real(real128), parameter :: coefficient083 = coefficient082 /  83
    real(real128), parameter :: coefficient084 = coefficient083 /  84
    real(real128), parameter :: coefficient085 = coefficient084 /  85
    real(real128), parameter :: coefficient086 = coefficient085 /  86
    real(real128), parameter :: coefficient087 = coefficient086 /  87
    real(real128), parameter :: coefficient088 = coefficient087 /  88
    real(real128), parameter :: coefficient089 = coefficient088 /  89
    real(real128), parameter :: coefficient090 = coefficient089 /  90
    real(real128), parameter :: coefficient091 = coefficient090 /  91
    real(real128), parameter :: coefficient092 = coefficient091 /  92
    real(real128), parameter :: coefficient093 = coefficient092 /  93
    real(real128), parameter :: coefficient094 = coefficient093 /  94
    real(real128), parameter :: coefficient095 = coefficient094 /  95
    real(real128), parameter :: coefficient096 = coefficient095 /  96
    real(real128), parameter :: coefficient097 = coefficient096 /  97
    real(real128), parameter :: coefficient098 = coefficient097 /  98
    real(real128), parameter :: coefficient099 = coefficient098 /  99
    real(real128), parameter :: coefficient100 = coefficient099 / 100
    real(real128), parameter :: coefficient101 = coefficient100 / 101
    real(real128), parameter :: coefficient102 = coefficient101 / 102
    real(real128), parameter :: coefficient103 = coefficient102 / 103
    real(real128), parameter :: coefficient104 = coefficient103 / 104
    real(real128), parameter :: coefficient105 = coefficient104 / 105
    real(real128), parameter :: coefficient106 = coefficient105 / 106
    real(real128), parameter :: coefficient107 = coefficient106 / 107
    real(real128), parameter :: coefficient108 = coefficient107 / 108
    real(real128), parameter :: coefficient109 = coefficient108 / 109
    real(real128), parameter :: coefficient110 = coefficient109 / 110
    real(real128), parameter :: coefficient111 = coefficient110 / 111
    real(real128), parameter :: coefficient112 = coefficient111 / 112
    real(real128), parameter :: coefficient113 = coefficient112 / 113
    real(real128), parameter :: coefficient114 = coefficient113 / 114
    real(real128), parameter :: coefficient115 = coefficient114 / 115
    real(real128), parameter :: coefficient116 = coefficient115 / 116
    real(real128), parameter :: coefficient117 = coefficient116 / 117
    real(real128), parameter :: coefficient118 = coefficient117 / 118
    real(real128), parameter :: coefficient119 = coefficient118 / 119
    real(real128), parameter :: coefficient120 = coefficient119 / 120
    real(real128), parameter :: coefficient121 = coefficient120 / 121
    real(real128), parameter :: coefficient122 = coefficient121 / 122
    real(real128), parameter :: coefficient123 = coefficient122 / 123
    real(real128), parameter :: coefficient124 = coefficient123 / 124
    real(real128), parameter :: coefficient125 = coefficient124 / 125
    real(real128), parameter :: coefficient126 = coefficient125 / 126
    real(real128), parameter :: coefficient127 = coefficient126 / 127
    real(real128), parameter :: coefficient128 = coefficient127 / 128
    real(real128), parameter :: coefficient129 = coefficient128 / 129
    real(real128), parameter :: coefficient130 = coefficient129 / 130
    real(real128), parameter :: coefficient131 = coefficient130 / 131
    real(real128), parameter :: coefficient132 = coefficient131 / 132
    real(real128), parameter :: coefficient133 = coefficient132 / 133
    real(real128), parameter :: coefficient134 = coefficient133 / 134
    real(real128), parameter :: coefficient135 = coefficient134 / 135
    real(real128), parameter :: coefficient136 = coefficient135 / 136
    real(real128), parameter :: coefficient137 = coefficient136 / 137
    real(real128), parameter :: coefficient138 = coefficient137 / 138
    real(real128), parameter :: coefficient139 = coefficient138 / 139
    real(real128), parameter :: coefficient140 = coefficient139 / 140
    real(real128), parameter :: coefficient141 = coefficient140 / 141
    real(real128), parameter :: coefficient142 = coefficient141 / 142
    real(real128), parameter :: coefficient143 = coefficient142 / 143
    real(real128), parameter :: coefficient144 = coefficient143 / 144
    real(real128), parameter :: coefficient145 = coefficient144 / 145
    real(real128), parameter :: coefficient146 = coefficient145 / 146
    real(real128), parameter :: coefficient147 = coefficient146 / 147
    real(real128), parameter :: coefficient148 = coefficient147 / 148
    real(real128), parameter :: coefficient149 = coefficient148 / 149
    real(real128), parameter :: coefficient150 = coefficient149 / 150
    real(real128), parameter :: coefficient151 = coefficient150 / 151
    real(real128), parameter :: coefficient152 = coefficient151 / 152
    real(real128), parameter :: coefficient153 = coefficient152 / 153
    real(real128), parameter :: coefficient154 = coefficient153 / 154
    real(real128), parameter :: coefficient155 = coefficient154 / 155
    real(real128), parameter :: coefficient156 = coefficient155 / 156
    real(real128), parameter :: coefficient157 = coefficient156 / 157
    real(real128), parameter :: coefficient158 = coefficient157 / 158
    real(real128), parameter :: coefficient159 = coefficient158 / 159
    real(real128), parameter :: coefficient160 = coefficient159 / 160
    real(real128), parameter :: coefficient161 = coefficient160 / 161
    real(real128), parameter :: coefficient162 = coefficient161 / 162
    real(real128), parameter :: coefficient163 = coefficient162 / 163
    real(real128), parameter :: coefficient164 = coefficient163 / 164
    real(real128), parameter :: coefficient165 = coefficient164 / 165
    real(real128), parameter :: coefficient166 = coefficient165 / 166
    real(real128), parameter :: coefficient167 = coefficient166 / 167
    real(real128), parameter :: coefficient168 = coefficient167 / 168
    real(real128), parameter :: coefficient169 = coefficient168 / 169
    real(real128), parameter :: coefficient170 = coefficient169 / 170
    real(real128), parameter :: coefficient171 = coefficient170 / 171
    real(real128), parameter :: coefficient172 = coefficient171 / 172
    real(real128), parameter :: coefficient173 = coefficient172 / 173
    real(real128), parameter :: coefficient174 = coefficient173 / 174
    real(real128), parameter :: coefficient175 = coefficient174 / 175
    real(real128), parameter :: coefficient176 = coefficient175 / 176
    real(real128), parameter :: coefficient177 = coefficient176 / 177


    contains


    module procedure taylor_series_exp_000_real128

        res = 1.0_real128

    end procedure taylor_series_exp_000_real128


    module procedure taylor_series_exp_001_real128

        res = coefficient000 + x * coefficient001

    end procedure taylor_series_exp_001_real128


    module procedure taylor_series_exp_002_real128

        res = coefficient001 + x * coefficient002
        res = coefficient000 + x * res

    end procedure taylor_series_exp_002_real128


    module procedure taylor_series_exp_003_real128

        res = coefficient002 + x * coefficient003
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_003_real128


    module procedure taylor_series_exp_004_real128

        res = coefficient003 + x * coefficient004
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_004_real128


    module procedure taylor_series_exp_005_real128

        res = coefficient004 + x * coefficient005
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_005_real128


    module procedure taylor_series_exp_006_real128

        res = coefficient005 + x * coefficient006
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_006_real128


    module procedure taylor_series_exp_007_real128

        res = coefficient006 + x * coefficient007
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_007_real128


    module procedure taylor_series_exp_008_real128

        res = coefficient007 + x * coefficient008
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_008_real128


    module procedure taylor_series_exp_009_real128

        res = coefficient008 + x * coefficient009
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_009_real128


    module procedure taylor_series_exp_010_real128

        res = coefficient009 + x * coefficient010
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_010_real128


    module procedure taylor_series_exp_011_real128

        res = coefficient010 + x * coefficient011
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_011_real128


    module procedure taylor_series_exp_012_real128

        res = coefficient011 + x * coefficient012
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_012_real128


    module procedure taylor_series_exp_013_real128

        res = coefficient012 + x * coefficient013
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_013_real128


    module procedure taylor_series_exp_014_real128

        res = coefficient013 + x * coefficient014
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_014_real128


    module procedure taylor_series_exp_015_real128

        res = coefficient014 + x * coefficient015
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_015_real128


    module procedure taylor_series_exp_016_real128

        res = coefficient015 + x * coefficient016
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_016_real128


    module procedure taylor_series_exp_017_real128

        res = coefficient016 + x * coefficient017
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_017_real128


    module procedure taylor_series_exp_018_real128

        res = coefficient017 + x * coefficient018
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_018_real128


    module procedure taylor_series_exp_019_real128

        res = coefficient018 + x * coefficient019
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_019_real128


    module procedure taylor_series_exp_020_real128

        res = coefficient019 + x * coefficient020
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_020_real128


    module procedure taylor_series_exp_021_real128

        res = coefficient020 + x * coefficient021
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_021_real128


    module procedure taylor_series_exp_022_real128

        res = coefficient021 + x * coefficient022
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_022_real128


    module procedure taylor_series_exp_023_real128

        res = coefficient022 + x * coefficient023
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_023_real128


    module procedure taylor_series_exp_024_real128

        res = coefficient023 + x * coefficient024
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_024_real128


    module procedure taylor_series_exp_025_real128

        res = coefficient024 + x * coefficient025
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_025_real128


    module procedure taylor_series_exp_026_real128

        res = coefficient025 + x * coefficient026
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_026_real128


    module procedure taylor_series_exp_027_real128

        res = coefficient026 + x * coefficient027
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_027_real128


    module procedure taylor_series_exp_028_real128

        res = coefficient027 + x * coefficient028
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_028_real128


    module procedure taylor_series_exp_029_real128

        res = coefficient028 + x * coefficient029
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_029_real128


    module procedure taylor_series_exp_030_real128

        res = coefficient029 + x * coefficient030
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_030_real128


    module procedure taylor_series_exp_031_real128

        res = coefficient030 + x * coefficient031
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_031_real128


    module procedure taylor_series_exp_032_real128

        res = coefficient031 + x * coefficient032
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_032_real128


    module procedure taylor_series_exp_033_real128

        res = coefficient032 + x * coefficient033
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_033_real128


    module procedure taylor_series_exp_034_real128

        res = coefficient033 + x * coefficient034
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_034_real128


    module procedure taylor_series_exp_035_real128

        res = coefficient034 + x * coefficient035
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_035_real128


    module procedure taylor_series_exp_036_real128

        res = coefficient035 + x * coefficient036
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_036_real128


    module procedure taylor_series_exp_037_real128

        res = coefficient036 + x * coefficient037
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_037_real128


    module procedure taylor_series_exp_038_real128

        res = coefficient037 + x * coefficient038
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_038_real128


    module procedure taylor_series_exp_039_real128

        res = coefficient038 + x * coefficient039
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_039_real128


    module procedure taylor_series_exp_040_real128

        res = coefficient039 + x * coefficient040
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_040_real128


    module procedure taylor_series_exp_041_real128

        res = coefficient040 + x * coefficient041
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_041_real128


    module procedure taylor_series_exp_042_real128

        res = coefficient041 + x * coefficient042
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_042_real128


    module procedure taylor_series_exp_043_real128

        res = coefficient042 + x * coefficient043
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_043_real128


    module procedure taylor_series_exp_044_real128

        res = coefficient043 + x * coefficient044
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_044_real128


    module procedure taylor_series_exp_045_real128

        res = coefficient044 + x * coefficient045
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_045_real128


    module procedure taylor_series_exp_046_real128

        res = coefficient045 + x * coefficient046
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_046_real128


    module procedure taylor_series_exp_047_real128

        res = coefficient046 + x * coefficient047
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_047_real128


    module procedure taylor_series_exp_048_real128

        res = coefficient047 + x * coefficient048
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_048_real128


    module procedure taylor_series_exp_049_real128

        res = coefficient048 + x * coefficient049
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_049_real128


    module procedure taylor_series_exp_050_real128

        res = coefficient049 + x * coefficient050
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_050_real128


    module procedure taylor_series_exp_051_real128

        res = coefficient050 + x * coefficient051
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_051_real128


    module procedure taylor_series_exp_052_real128

        res = coefficient051 + x * coefficient052
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_052_real128


    module procedure taylor_series_exp_053_real128

        res = coefficient052 + x * coefficient053
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_053_real128


    module procedure taylor_series_exp_054_real128

        res = coefficient053 + x * coefficient054
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_054_real128


    module procedure taylor_series_exp_055_real128

        res = coefficient054 + x * coefficient055
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_055_real128


    module procedure taylor_series_exp_056_real128

        res = coefficient055 + x * coefficient056
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_056_real128


    module procedure taylor_series_exp_057_real128

        res = coefficient056 + x * coefficient057
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_057_real128


    module procedure taylor_series_exp_058_real128

        res = coefficient057 + x * coefficient058
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_058_real128


    module procedure taylor_series_exp_059_real128

        res = coefficient058 + x * coefficient059
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_059_real128


    module procedure taylor_series_exp_060_real128

        res = coefficient059 + x * coefficient060
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_060_real128


    module procedure taylor_series_exp_061_real128

        res = coefficient060 + x * coefficient061
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_061_real128


    module procedure taylor_series_exp_062_real128

        res = coefficient061 + x * coefficient062
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_062_real128


    module procedure taylor_series_exp_063_real128

        res = coefficient062 + x * coefficient063
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_063_real128


    module procedure taylor_series_exp_064_real128

        res = coefficient063 + x * coefficient064
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_064_real128


    module procedure taylor_series_exp_065_real128

        res = coefficient064 + x * coefficient065
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_065_real128


    module procedure taylor_series_exp_066_real128

        res = coefficient065 + x * coefficient066
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_066_real128


    module procedure taylor_series_exp_067_real128

        res = coefficient066 + x * coefficient067
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_067_real128


    module procedure taylor_series_exp_068_real128

        res = coefficient067 + x * coefficient068
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_068_real128


    module procedure taylor_series_exp_069_real128

        res = coefficient068 + x * coefficient069
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_069_real128


    module procedure taylor_series_exp_070_real128

        res = coefficient069 + x * coefficient070
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_070_real128


    module procedure taylor_series_exp_071_real128

        res = coefficient070 + x * coefficient071
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_071_real128


    module procedure taylor_series_exp_072_real128

        res = coefficient071 + x * coefficient072
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_072_real128


    module procedure taylor_series_exp_073_real128

        res = coefficient072 + x * coefficient073
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_073_real128


    module procedure taylor_series_exp_074_real128

        res = coefficient073 + x * coefficient074
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_074_real128


    module procedure taylor_series_exp_075_real128

        res = coefficient074 + x * coefficient075
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_075_real128


    module procedure taylor_series_exp_076_real128

        res = coefficient075 + x * coefficient076
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_076_real128


    module procedure taylor_series_exp_077_real128

        res = coefficient076 + x * coefficient077
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_077_real128


    module procedure taylor_series_exp_078_real128

        res = coefficient077 + x * coefficient078
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_078_real128


    module procedure taylor_series_exp_079_real128

        res = coefficient078 + x * coefficient079
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_079_real128


    module procedure taylor_series_exp_080_real128

        res = coefficient079 + x * coefficient080
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_080_real128


    module procedure taylor_series_exp_081_real128

        res = coefficient080 + x * coefficient081
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_081_real128


    module procedure taylor_series_exp_082_real128

        res = coefficient081 + x * coefficient082
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_082_real128


    module procedure taylor_series_exp_083_real128

        res = coefficient082 + x * coefficient083
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_083_real128


    module procedure taylor_series_exp_084_real128

        res = coefficient083 + x * coefficient084
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_084_real128


    module procedure taylor_series_exp_085_real128

        res = coefficient084 + x * coefficient085
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_085_real128


    module procedure taylor_series_exp_086_real128

        res = coefficient085 + x * coefficient086
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_086_real128


    module procedure taylor_series_exp_087_real128

        res = coefficient086 + x * coefficient087
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_087_real128


    module procedure taylor_series_exp_088_real128

        res = coefficient087 + x * coefficient088
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_088_real128


    module procedure taylor_series_exp_089_real128

        res = coefficient088 + x * coefficient089
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_089_real128


    module procedure taylor_series_exp_090_real128

        res = coefficient089 + x * coefficient090
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_090_real128


    module procedure taylor_series_exp_091_real128

        res = coefficient090 + x * coefficient091
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_091_real128


    module procedure taylor_series_exp_092_real128

        res = coefficient091 + x * coefficient092
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_092_real128


    module procedure taylor_series_exp_093_real128

        res = coefficient092 + x * coefficient093
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_093_real128


    module procedure taylor_series_exp_094_real128

        res = coefficient093 + x * coefficient094
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_094_real128


    module procedure taylor_series_exp_095_real128

        res = coefficient094 + x * coefficient095
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_095_real128


    module procedure taylor_series_exp_096_real128

        res = coefficient095 + x * coefficient096
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_096_real128


    module procedure taylor_series_exp_097_real128

        res = coefficient096 + x * coefficient097
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_097_real128


    module procedure taylor_series_exp_098_real128

        res = coefficient097 + x * coefficient098
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_098_real128


    module procedure taylor_series_exp_099_real128

        res = coefficient098 + x * coefficient099
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_099_real128


    module procedure taylor_series_exp_100_real128

        res = coefficient099 + x * coefficient100
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_100_real128


    module procedure taylor_series_exp_101_real128

        res = coefficient100 + x * coefficient101
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_101_real128


    module procedure taylor_series_exp_102_real128

        res = coefficient101 + x * coefficient102
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_102_real128


    module procedure taylor_series_exp_103_real128

        res = coefficient102 + x * coefficient103
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_103_real128


    module procedure taylor_series_exp_104_real128

        res = coefficient103 + x * coefficient104
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_104_real128


    module procedure taylor_series_exp_105_real128

        res = coefficient104 + x * coefficient105
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_105_real128


    module procedure taylor_series_exp_106_real128

        res = coefficient105 + x * coefficient106
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_106_real128


    module procedure taylor_series_exp_107_real128

        res = coefficient106 + x * coefficient107
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_107_real128


    module procedure taylor_series_exp_108_real128

        res = coefficient107 + x * coefficient108
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_108_real128


    module procedure taylor_series_exp_109_real128

        res = coefficient108 + x * coefficient109
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_109_real128


    module procedure taylor_series_exp_110_real128

        res = coefficient109 + x * coefficient110
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_110_real128


    module procedure taylor_series_exp_111_real128

        res = coefficient110 + x * coefficient111
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_111_real128


    module procedure taylor_series_exp_112_real128

        res = coefficient111 + x * coefficient112
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_112_real128


    module procedure taylor_series_exp_113_real128

        res = coefficient112 + x * coefficient113
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_113_real128


    module procedure taylor_series_exp_114_real128

        res = coefficient113 + x * coefficient114
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_114_real128


    module procedure taylor_series_exp_115_real128

        res = coefficient114 + x * coefficient115
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_115_real128


    module procedure taylor_series_exp_116_real128

        res = coefficient115 + x * coefficient116
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_116_real128


    module procedure taylor_series_exp_117_real128

        res = coefficient116 + x * coefficient117
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_117_real128


    module procedure taylor_series_exp_118_real128

        res = coefficient117 + x * coefficient118
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_118_real128


    module procedure taylor_series_exp_119_real128

        res = coefficient118 + x * coefficient119
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_119_real128


    module procedure taylor_series_exp_120_real128

        res = coefficient119 + x * coefficient120
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_120_real128


    module procedure taylor_series_exp_121_real128

        res = coefficient120 + x * coefficient121
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_121_real128


    module procedure taylor_series_exp_122_real128

        res = coefficient121 + x * coefficient122
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_122_real128


    module procedure taylor_series_exp_123_real128

        res = coefficient122 + x * coefficient123
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_123_real128


    module procedure taylor_series_exp_124_real128

        res = coefficient123 + x * coefficient124
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_124_real128


    module procedure taylor_series_exp_125_real128

        res = coefficient124 + x * coefficient125
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_125_real128


    module procedure taylor_series_exp_126_real128

        res = coefficient125 + x * coefficient126
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_126_real128


    module procedure taylor_series_exp_127_real128

        res = coefficient126 + x * coefficient127
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_127_real128


    module procedure taylor_series_exp_128_real128

        res = coefficient127 + x * coefficient128
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_128_real128


    module procedure taylor_series_exp_129_real128

        res = coefficient128 + x * coefficient129
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_129_real128


    module procedure taylor_series_exp_130_real128

        res = coefficient129 + x * coefficient130
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_130_real128


    module procedure taylor_series_exp_131_real128

        res = coefficient130 + x * coefficient131
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_131_real128


    module procedure taylor_series_exp_132_real128

        res = coefficient131 + x * coefficient132
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_132_real128


    module procedure taylor_series_exp_133_real128

        res = coefficient132 + x * coefficient133
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_133_real128


    module procedure taylor_series_exp_134_real128

        res = coefficient133 + x * coefficient134
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_134_real128


    module procedure taylor_series_exp_135_real128

        res = coefficient134 + x * coefficient135
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_135_real128


    module procedure taylor_series_exp_136_real128

        res = coefficient135 + x * coefficient136
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_136_real128


    module procedure taylor_series_exp_137_real128

        res = coefficient136 + x * coefficient137
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_137_real128


    module procedure taylor_series_exp_138_real128

        res = coefficient137 + x * coefficient138
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_138_real128


    module procedure taylor_series_exp_139_real128

        res = coefficient138 + x * coefficient139
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_139_real128


    module procedure taylor_series_exp_140_real128

        res = coefficient139 + x * coefficient140
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_140_real128


    module procedure taylor_series_exp_141_real128

        res = coefficient140 + x * coefficient141
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_141_real128


    module procedure taylor_series_exp_142_real128

        res = coefficient141 + x * coefficient142
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_142_real128


    module procedure taylor_series_exp_143_real128

        res = coefficient142 + x * coefficient143
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_143_real128


    module procedure taylor_series_exp_144_real128

        res = coefficient143 + x * coefficient144
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_144_real128


    module procedure taylor_series_exp_145_real128

        res = coefficient144 + x * coefficient145
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_145_real128


    module procedure taylor_series_exp_146_real128

        res = coefficient145 + x * coefficient146
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_146_real128


    module procedure taylor_series_exp_147_real128

        res = coefficient146 + x * coefficient147
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_147_real128


    module procedure taylor_series_exp_148_real128

        res = coefficient147 + x * coefficient148
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_148_real128


    module procedure taylor_series_exp_149_real128

        res = coefficient148 + x * coefficient149
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_149_real128


    module procedure taylor_series_exp_150_real128

        res = coefficient149 + x * coefficient150
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_150_real128


    module procedure taylor_series_exp_151_real128

        res = coefficient150 + x * coefficient151
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_151_real128


    module procedure taylor_series_exp_152_real128

        res = coefficient151 + x * coefficient152
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_152_real128


    module procedure taylor_series_exp_153_real128

        res = coefficient152 + x * coefficient153
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_153_real128


    module procedure taylor_series_exp_154_real128

        res = coefficient153 + x * coefficient154
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_154_real128


    module procedure taylor_series_exp_155_real128

        res = coefficient154 + x * coefficient155
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_155_real128


    module procedure taylor_series_exp_156_real128

        res = coefficient155 + x * coefficient156
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_156_real128


    module procedure taylor_series_exp_157_real128

        res = coefficient156 + x * coefficient157
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_157_real128


    module procedure taylor_series_exp_158_real128

        res = coefficient157 + x * coefficient158
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_158_real128


    module procedure taylor_series_exp_159_real128

        res = coefficient158 + x * coefficient159
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_159_real128


    module procedure taylor_series_exp_160_real128

        res = coefficient159 + x * coefficient160
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_160_real128


    module procedure taylor_series_exp_161_real128

        res = coefficient160 + x * coefficient161
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_161_real128


    module procedure taylor_series_exp_162_real128

        res = coefficient161 + x * coefficient162
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_162_real128


    module procedure taylor_series_exp_163_real128

        res = coefficient162 + x * coefficient163
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_163_real128


    module procedure taylor_series_exp_164_real128

        res = coefficient163 + x * coefficient164
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_164_real128


    module procedure taylor_series_exp_165_real128

        res = coefficient164 + x * coefficient165
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_165_real128


    module procedure taylor_series_exp_166_real128

        res = coefficient165 + x * coefficient166
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_166_real128


    module procedure taylor_series_exp_167_real128

        res = coefficient166 + x * coefficient167
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_167_real128


    module procedure taylor_series_exp_168_real128

        res = coefficient167 + x * coefficient168
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_168_real128


    module procedure taylor_series_exp_169_real128

        res = coefficient168 + x * coefficient169
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_169_real128


    module procedure taylor_series_exp_170_real128

        res = coefficient169 + x * coefficient170
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_170_real128


    module procedure taylor_series_exp_171_real128

        res = coefficient170 + x * coefficient171
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_171_real128


    module procedure taylor_series_exp_172_real128

        res = coefficient171 + x * coefficient172
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_172_real128


    module procedure taylor_series_exp_173_real128

        res = coefficient172 + x * coefficient173
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_173_real128


    module procedure taylor_series_exp_174_real128

        res = coefficient173 + x * coefficient174
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_174_real128


    module procedure taylor_series_exp_175_real128

        res = coefficient174 + x * coefficient175
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_175_real128


    module procedure taylor_series_exp_176_real128

        res = coefficient175 + x * coefficient176
        res = coefficient174 + x * res
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_176_real128


    module procedure taylor_series_exp_177_real128

        res = coefficient176 + x * coefficient177
        res = coefficient175 + x * res
        res = coefficient174 + x * res
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_exp_177_real128

end submodule imp_taylor_series_exp_real128